\newlength{\linedst}
\setlength{\linedst}{8mm}

\newlength{\morex}
\newlength{\morey}
\setlength{\morex}{3cm}
\setlength{\morey}{3cm}

\documentclass{article}
\usepackage{ifthen}
\begin{document}
\thispagestyle{empty}
\newlength{\maxpagesize}
\newlength{\pagesize}
\newlength{\pagexsize}
\setlength{\pagesize}{-\morey}
\setlength{\maxpagesize}{\textheight}
\setlength{\pagexsize}{2\morex}
\addtolength{\pagexsize}{\textwidth}
\addtolength{\maxpagesize}{2\morey}
\addtolength{\maxpagesize}{-\linedst}
\addtolength{\maxpagesize}{-\linedst}
\begin{center}
\whiledo{\lengthtest{\pagesize<\maxpagesize}}
{%
\makebox[0cm][c]{\raisebox{-\pagesize}[0em][0em]{\rule{\pagexsize}{.26mm}}}%
\addtolength{\pagesize}{\linedst}%
}%
\end{center}
\end{document}
