Insert Row With Numeric Value That Increases with 1 after Every 100-th Row of Data

Dear all,
I have found this VBA script, but I don't know how to modify it. I need to insert row with text and numeric value that rise for 1 after every 100-th row of data.
For instance:
text 1
text 2
text 3 etc.
Please, can somebody help me?

Sub Insert100() 
    Dim rng As Range 
     
    Set rng = Range("A1") 
    While rng.Value <> "" 
        rng.Offset(100).EntireRow.Insert 
        Set rng = rng.Offset(101) 
    Wend 
End Sub