Insert PageBreak after each 50 Rows

I am trying to insert PageBreaks with VBA.

My sheet has multiple tables and they are with different amount of Rows.

With the Row Hight it should be approximately a PageBreak per 50 Rows.
The PageBreak must take in to consideration that:
The first 15 Rows in the sheet don't change.
All tables have 2 rows between them.
The last 50 must be on one Page.

I am not sure how to go about this, so any idears will be greatly apreciated :-)
Udklip.JPG This is a picture