Hi Evad,
Try this macro (on a backup copy first)...

Public Sub EightRowsTween()
Application.ScreenUpdating = False
Dim iLastRow As Long
Dim rngLastRow As Range
iLastRow = ActiveSheet.UsedRange.Rows.Count
Do While iLastRow 1
Set rngLastRow = Range(Cells(iLastRow, 1), _
Cells(iLastRow + 7, 1))
rngLastRow.EntireRow.Insert
iLastRow = iLastRow - 1
Loop
End Sub

If you ever need to insert a different number of rows between all
records you can change the 7 in the 5th last line eg for 5 rows between
records change the 7 to 4 (always 1 less than the number of inserted
rows)

Ken Johnson