is = 5 72;
    pp = Column[
      Table[{
        Row[{Plot[Sin[n t], {t, 0, 5 π}, ImageSize -> is,
           PlotStyle -> Red],
          Plot[Haversine[n t], {t, 0, 5 π}, ImageSize -> is,
           PlotStyle -> Blue]}]
        }, {n, 5}]
      ]

Export["Fig.pdf", pp]

SetOptions["stdout", PageWidth -> Infinity]