\newcount\radky
\def\linka{\hrule height.2pt}

\newbox\mystrutbox
\setbox\mystrutbox=\hbox{\vrule height6mm depth0mm width0pt}
\def\mystrut{\unhcopy\mystrutbox}

\nadpis Poznámky
%%%%%%%%%%%%%%%%

% 1. strana = 18 linek
% ostatni   = 19 linek

\loop\mystrut\vskip0mm plus1mm minus1mm \linka\advance\radky by1\ifnum\radky<113\repeat % 6 stránek poznámek
%\loop\mystrut\vskip0mm plus1mm minus1mm \linka\advance\radky by1\ifnum\radky<93\repeat % 5 stránek poznámek
%\loop\mystrut\vskip0mm plus1mm minus1mm \linka\advance\radky by1\ifnum\radky<75\repeat % 4 stránky poznámek
%\loop\mystrut\vskip0mm plus1mm minus1mm \linka\advance\radky by1\ifnum\radky<55\repeat % 3 stránky poznámek
%\loop\mystrut\vskip0mm plus1mm minus1mm \linka\advance\radky by1\ifnum\radky<35\repeat % 2 stránky poznámek
%\loop\mystrut\vskip0mm plus1mm minus1mm \linka\advance\radky by1\ifnum\radky<17\repeat % 1 stránka poznámek

%\break

