Try this macro:

Sub DeleteRows()

Dim iLastRow As Integer
Dim i As Integer
Dim iRem As Integer

Application.ScreenUpdating = False

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
iRem = iLastRow Mod 2

If iRem = 1 Then
iLastRow = iLastRow + 1
Else
iLastRow = iLastRow
End If

For i = iLastRow To 8 Step -2
Cells(i, "A").EntireRow.Delete
Next i

Application.ScreenUpdating = True

End Sub

---
HTH
Jason
Atlanta, GA

-----Original Message-----
I have a rather large document where I need to delete
every other line
beginning with line 8. I am looking for a shortcut
rather than manually
deleting each line.
.