You're trying to create a macro that will insert a set of blank rows into an existing spreadsheet after each entry. The amount of needed rows will be the same for each entry of the spreadsheet, but will need to be changed each time it is used. Follow the guide below.
Dim j As Long, r As Range
j = InputBox("type the number of rows to be insered")
Set r = Range("A2")
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 1, 1)
If r.Offset(1, 0) = "" Then Exit Do