Здравствуйте! Обычно при удалении строк использую цикл "снизу-вверх", но в Вашем случае придётся предварительно вычислить начальную строку для удаления. Можно немного схитрить, сделать так:  
Sub qqq()  
   For i = 5 To 100 Step 5  
       Rows(i).Delete  
       i = i - 1  
   Next  
End Sub  
Из диапазона строк 1:100 будет удалена каждая пятая строка. Кроме последней.

Тогда так:  
Sub qqq()  
   For i = 1 To 1000  
       Range(Rows(i), Rows(i + 19)).EntireRow.Delete  
   Next  
End Sub