Deleting all rows except every 250th row up to 10,000

[bjcowen90000]

Is there a VBA code to delete all rows on all worksheets except the 250 row, 500 row, 750, 1000, and add 250 up to 10000?

An easier way may be to know that all the rows I want to be deleted only have 0's in cell that have values. The 250 row might have a 0, but in at least one cell there is a number

 

[WUDA1]

Have you tried extracting the 250,500,750, etc. rows to another worksheet then just deleting the other one?

 

[bjcowen90000]

I am trying to it quickly, not just select each row. Also, there are many worksheets