Creating and plotting multiple lists

I have a list of length N. I would now like to create N lists. Each of these lists will be the Y coordinate of a plot. Something like the following:

Code:

`For[p=1,p<=N,p++, Y[p] = Table[0, {i, ndof/2}];`

x = 1; j = 1; t = 2;

For[i = 1, i <= Length[Y[1]], i++,

If[DOFSupports[[j]] == x,

Y[p][[i]] = 0; j = j + 1,

Y[p][[i]] = \[Phi][[sigmodes[[1]], t]]; t = t + 3];

x = x + 2]

The problem is Y[p][[i]] will not work.

Also, I would then like to plot each Y[p] with a loop that would plot each:

Code:

`ListLinePlot[{Y}, DataRange -> {0, X[[ndof/2]]}, `

PlotRange -> {-0.8, 0.8}]

Any help would be appreciated. I am sure it will have something to do w/ setting up functions...which I haven't quite grasped well yet. Thank you.