<<VectorFieldPlots`;

Manipulate[VectorFieldPlot[{Cos[k[[1]]z+k[[2]]y],Sin[k[[1]]z+k[[2]] y]}, 
{z, -8, 8,1}, {y, -8, 8,1},ScaleFactor->0.5],
{{k,{0,0}},{-Pi,-Pi},{Pi,Pi}}]